0 GOSUB 8000: GOSUB 9000: GOTO 12 1 GOSUB 9000:PRINT ""; 2 OPEN 1,8,15 3 OPEN 3,8,0,"$0:*=P" 4 SYS 49152 5 CLOSE 3 6 PRINT#1,"S0:BOOT.DATA" 7 OPEN 3,8,3,"0:BOOT.DATA,S,W" 8 SYS 49155 9 CLOSE 3 10 CLOSE 1 11 END 12 OPEN 1,8,15,"I0" 13 OPEN 3,8,3,"BOOT.DATA" 14 PRINT "";: SYS 49158 15 CLOSE 3 16 SYS 49161 17 IF PEEK(198)=1 THEN PRINT ""; 18 CLOSE 1 19 END 7990 : 8000 POKE 45,PEEK(174) 8001 POKE 46,PEEK(175) 8003 POKE 47,PEEK(45) 8004 POKE 48,PEEK(46) 8005 POKE 49,PEEK(45) 8006 POKE 50,PEEK(46) 8011 S=54272 8015 FOR T=0 TO 24:POKE S+T,0:NEXT T 8020 POKE 646,0 8030 POKE 53281,7:POKE53280,7 8045 : 8050 PRINT "[147]";CHR$(142); 8060 FOR I=1 TO 7 8070 PRINT SPC(7); 8080 FOR J=1 TO 26: PRINT "[192]";: NEXT J 8090 PRINT 8100 NEXT I 8110 PRINT "" 8120 PRINT SPC(15); 8130 PRINT " TPUG INC " 8140 PRINT SPC(12); 8150 PRINT " 5300 YONGE ST. " 8180 PRINT SPC(9); 8190 PRINT " WILLOWDALE, ONTARIO " 8200 PRINT SPC(15); 8210 PRINT " M2N 5R2 " 8220 PRINT SPC(12); 8230 PRINT " (416)733-2933 " 8235 PRINT:PRINT 8240 PRINT ""; 8250 FOR I=1 TO 7 8260 PRINT SPC(10);CHR$(18); 8270 FOR J=1 TO 20: PRINT " ";: NEXT J 8280 PRINT 8290 NEXT I 8300 PRINT "[145][145][145][145][145][145][145]" 8310 PRINT SPC(12); 8320 PRINT "THIS SOFTWARE IS" 8330 PRINT SPC(14); 8340 PRINT "PUBLIC DOMAIN" 8350 PRINT SPC(11); 8360 PRINT "IT IS OKAY TO COPY" 8370 PRINT SPC(13); 8380 PRINT "BUT NOT TO SELL" 8390 PRINT SPC(15); 8400 PRINT "FOR PROFIT" 8410 : 8440 PRINT "": GOSUB 8900 8505 : 8510 PRINT "[147]" 8520 PRINT SPC(9); 8530 PRINT "AUTOLOADER INSTRUCTIONS" 8540 PRINT SPC(14); 8550 PRINT "AVAILABLE ON" 8560 PRINT SPC(12); 8570 PRINT "*AUTOBOOT[146] PROGRAM" 8580 PRINT SPC(12); 8590 PRINT "MENU PRINTING IS" 8600 PRINT SPC(14); 8610 PRINT "AVAILABLE ON":PRINT 8620 PRINT SPC(11); 8630 PRINT "PRINTBOOTDATA[146] FILE"; 8640 : 8710 PRINT "": GOSUB 8900 8720 RETURN 8760 : 8770 REM BELL SOUND 8780 S=54272 8791 POKE S+4,20 8800 POKE S+1,60:POKE S+5,9 8805 POKE S+5,60: POKE S+6,9 8810 POKE S+15,40:POKE S+24,15 8820 POKE S+4,21 8830 FOR T=1 TO 500:NEXT T 8840 POKE S+4,20 8850 RETURN 8860 : 8865 REM PRINT PAUSE MESSAGE 8880 PRINT SPC(8);"PRESS ";CHR$(A); 8885 PRINT "SHIFT";CHR$(146); 8886 PRINT " TO CONTINUE[145]" 8890 A=164-A: RETURN 8895 : 8896 REM WAIT FOR SHIFT 8900 A=18: REM REVERSE ON 8905 FOR QQ=1 TO 1500: NEXT QQ 8925 GOSUB 8880: REM PRINT PAUSE MSG 8926 GOSUB 8780 8927 GOSUB 8880 8930 FOR I=1 TO 100 8935 IF PEEK(653)<>1 GOTO 8945 8940 I=100: NEXT I: RETURN 8945 NEXT I 8947 GOTO 8927 8950 : 8990 REM INSTALL MACHINE LANGUAGE 9000 FOR I=319 TO 384 9001 READ A: POKE I,A: NEXT 9002 POKE 251, 0 9003 POKE 252, 192 9004 FOR I=0 TO 66: READ A$ 9005 SYS 319,A$: NEXT: RETURN 9006 : 9007 DATA 32, 253, 174, 32, 158, 173 9008 DATA 32, 163, 182, 133, 36, 162 9009 DATA 0, 160, 255, 32, 102, 1 9010 DATA 10, 10, 10, 10, 133, 37 9011 DATA 32, 102, 1, 5, 37, 129 9012 DATA 251, 230, 251, 208, 236, 230 9013 DATA 252, 208, 232, 200, 196, 36 9014 DATA 240, 16, 177, 34, 201, 81 9015 DATA 176, 13, 201, 65, 144, 9 9016 DATA 233, 1, 41, 15, 16, 2 9017 DATA 104, 104, 96, 76, 8, 175 9018 : 9020 DATAEMLIMCEMAHMDEMIDMFEMIMMFAAAAAAAAAAAAAAAAAAAAAAAAAAAABNJNBBJBDPANIJLKMF 9021 DATAMCMFMOMFOOMFAOMGBGMHAGMEMEEJFDELCAEOEBENEFDKCAEBFFFEEPEMEPEBEECAEEEFFG 9022 DATAEFEMEPFAAAEBEECACACACACACACACAAAEFFEFFFCEOCACPMAAAEAAAABELMAIKMAKCMAKH 9023 DATAMAKLMALEMALNMANJMAPKMAAKMBBCMABEMABOMBDGMBGOMBAPMCFCMCHHMCJJMCKCMCBBFC 9024 DATAEFEBEEEJEOEHCAEEEJFCEFEDFEEPFCFJCOCOCOANANAABCCAJCJNAACAJNJNAAEJEOEDEM 9025 DATAFFEEEFCAAACACIFJCPEOCJDPCAAAFFFDEFCAFCEFEMEPEDEBFEEJEOEHCAEMEPEBEECACI 9026 DATAFJCPEOCJDPCAAAFDEFFBCOCAEEEPEDCOCAEGEJEMEFCAEBFGEBEJEMEBECEMEFCACIFJCP 9027 DATAEOCJDPCAAAFDEFFBCOCAEGEJEMEFEOEBENEFDKCAAAEEEFFDEDFCEJECEFCAFAFCEPEHFC 9028 DATAEBENDKCAANAAEJFDCAFEEIEJFDCAEDEPFCFCEFEDFECACIFJCPEOCJDPCAAAJDBCFEFAFF 9029 DATAEHCAEEEJFDELCAEBFFFEEPEMEPEBEEEFFCBBBBBBBBANFAEMEFEBFDEFCAFHEBEJFECOCA 9030 DATAFCEFEBEEEJEOEHCAEEEBFEEBCOCOCOAAJDFFFDEFCAEDFFFCFDEPFCCAEDEPEOFEFCEPEM 9031 DATAFDCAFEEPCAFDEFEMEFEDFECAFAFCEPEHFCEBENCMANBCFCEFFEFFFCEOJCCAFEEPCAEMEP 9032 DATAEBEECMCABCEGDCJCCAFEEPCAEFFIEJFECAFEEPCAECEBFDEJEDCOANANEJEGCABCCKJCCA 9033 DATAFAFCEFEDEFEEEFFDCAEGEJEMEFEOEBENEFCMCAFJEPFFCAEDEBEOCAFCEFEBEECAEBANEE 9034 DATAEPEDFFENEFEOFEEBFEEJEPEOCAEGEJEMEFCAECFJCAFAFCEFFDFDEJEOEHCABCDPJCCOAN 9035 DATAANAABDBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBNBNBNBNBNBNBNBN 9036 DATABNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBNBCENEPFCEFJCDNDNDOAAJD 9037 DATAFFFDEFCAFDEIEJEGFECAFEEPCAFAEBFFFDEFCMCABCFPJCCAFEEPCAEBECEPFCFECOBBAN 9038 DATAAAANFAFCEFFDFDCAEBEOFJCAELEFFJCAFEEPCAFCEFFEFFFCEOCAFEEPCAENEFEOFFCOAA 9039 DATAJDBBBBEMEPEBEECCAAANBBBBBBBBFAEPELEFCADBDJDICMDADKCAFCFFEOBDAAKJAAINBA 9040 DATAMAKJAECAGNMECAJDMEIKNADLKJKAKAEAINAOMAIMAPMAKJDKKAMAIFCCIECDCAKPMEOAAA 9041 DATANACCKKPABPCAHGMFCAKPMEOAAANABFKKPABCOOBAMAJIGNAOMAINAOMAJAADOOAPMAEMOE 9042 DATAMCCAMMPPGALKIOBGMAKCADCAMJPPKJAACAGNMECAPAMECAPAMECAMMPPKJAACAGNMECAPA 9043 DATAMECAPAMEKJKAKAEAINAOMAIMAPMAKJAHCAGNMEKJIACAGNMEKJAICAGNMEKJABKICAALME 9044 DATACAPAMEKNAAEAMJEONAADEMPIMDMJFJNANKKJEOCMBBMADABMKJAJCAGNMEKJANKAABCAAL 9045 DATAMECAPAMEKNBCMAMJEOPAAJMJFJNAOGKJFCINBCMAKJAKCAGNMEKJAOKAABCAALMECAPAME 9046 DATAKNBEMAMJEOPABNMJFJNAOGKJCKINBEMAKJALCAGNMEKJADKABACAALMECAPAMEJIPAOONA 9047 DATAAKKJCAINBEMAKJAAINELMAKJAMCAGNMEKJABKAJPCAALMEIEAECAPAMECAPAMECADHMFKJ 9048 DATAAPCAGNMEKJACKAABCAALMECAPAMEKNAAABMJEOPABHMJFJNAODKCADCAMJPPCADHMFCAMM 9049 DATAPPCAFNMFMOBAMAPAAGCAPAMEEMDDMDKOBGMAJKGAIEACAKKKLNFMMALMFNMAIFCEIECFKA 9050 DATAAAKJAFCAGNMEIEAECAOEPPMJIJNAADEMAGMEKEAEMJANPADBMJBEPACBKKCJHPMJCAJAOD 9051 DATAIKMEACPANOJBCECANCPPMJCCNAAICANCPPKJBECANCPPMIEMBLMEJIPAMGKJAGCAGNMEII 9052 DATAEMBLMEKJCACANCPPKJAAJBCEGAIEAEAKLAANKKLNFMMALMFNMAIFCCIECDNAADCAHGMFKA 9053 DATAAALBCCPAAGCANCPPMINAPGIEAFKEAEGACAJIMEIFADKCADIEAECAMGPPCAOEPPIFACKFJA 9054 DATAINANMAKKKEAEKFACGACAJDMEIKNADCCAJDMEIKNACMKAAACAJIMEPACFOAAANACBMJCCNA 9055 DATAPDCAJIMEOAAANABGMJCCPAAFJBCCMINAPAKJAAJBCCCAJIMEPAAHOAAAPAPHKJAACMKJAB 9056 DATAKOANMAGAKJANCANCPPKFBDBAAFKJAKCANCPPGAKCABCAMGPPKAAAIEAECAOEPPKEAEJJAA 9057 DATAABMIMAEAPAAEKFJAPAONKJAAJJAAABCAMMPPKNAAABMJDCJAANMJDHNAAHKNABABMJDDPA 9058 DATAACDICEBIGAKJAOCAGNMEKJIACAGNMECAPAMEKJANCAGNMEKJADCAGNMECAPAMEKJABCAGN 9059 DATAMECAPAMECAPAMEGACAHGMFKAAALBCCPAADMINAPJJIDIGFCCINAOMAJAADOOAPMAGAEIKN 9060 DATAAOMAIFCCKNAPMAIFCDGIGAKJBACAGNMECAKLMHGALKIOBGMAKJABINBIMACAALMICAIBMI 9061 DATACAOEPPKCAGNNBKMAPAAFMKBAPIDAPBIKAKKKLNCBMAIFCCLNCCMAIFCDGMCCAACANMMIOO 9062 DATABHMANAAGCANMMIMOBHMACAGIMHEMJIMFCANMMIKJACIFACKNBHMAMNBJMANAAEKJABIFAC 9063 DATAOOBHMACAGIMHMGACNAOKEMJIMFCANMMIKJACIFACKNBHMAMNBIMANAAEKJABIFACMOBHMA 9064 DATACAGIMHMGACNAOKEMJIMFCAHGMFKAAALBCCMJCKPAADEMJIMFKJBDCAGNMECAFNMFCAHGMF 9065 DATAOGCCNAACOGCDKAAALBCCPAADMINAPJJIKGCCKECDCALNPPKOAMMAKJADKICALKPPCAMAPP 9066 DATACAPPMEJAAIKJACCAGNMEEMONMGKAAAIEACKJCHIFADKNINACNAPLCAMMPPCAOEPPMJFPPA 9067 DATAHHKCADCAMGPPKEACIEACCAOEPPKEACJJAAEAKGJAPAAGCAALMHEMOFMGMJANNAAGCAALMH 9068 DATAEMFHMGMJCANAACIEADMIIEACMACHNANFKEADMACHNABHKJAAIFACCAAMMHKJANCANCPPCA 9069 DATAOEPPMJCAPAPJKEACPALNKEADCAAMMHKJANCANCPPKEADMIMEACPAIJKCAALJAAEAJNAAEA 9070 DATAOIMIMEACNAPEJIBIOFADIFACEMFLMGCAMMPPKJADCAMDPPKJBECAGNMECAOEPPPAPLKNBH 9071 DATAMAEIKNBIMAINBHMACAALMIGIINBHMAEMJIMFMIKJAAJJAAEAKJABEMGNMEOOAOMANAADOO 9072 DATAAPMAKJBFCAGNMEKJIACAGNMEKJCCCANCPPKJCMCANCPPKNAMMAAJDACANCPPCAFNMFCAHG 9073 DATAMFKAAALBCCMJFCPAAOKJCMCANCPPKJDBCANCPPKAABNAAHKJBGCAGNMEKAAFIEMGKJANJJ 9074 DATAHGACIINAPKGAKNBHMAMNBIMALACEMJAANABMKNBJMAMNBAMAJAAEINBHMAGAKJABBIGJBK 9075 DATAMNBJMALAPIDIOJBKINBIMACAANMIGAKNBJMAMNBHMALAAOMNBAMAPAADCAALMIKNBIMAIN 9076 DATABHMAGAKCADCAMGPPKFLKINAMMAKJAAINBAMAKJDKKAMACAOKMHCAOEPPKJKAKAEAINAOMA 9077 DATAIMAPMAKCADIGAECAPBMHCAFNMFMGAENAPGCAOEPPOOBAMAKFJAPAOICAMMPPGAIFCCIECD 9078 DATAEMPEMHCAHGMFKAAAIEAFCAOEPPKEAFMJANPAAFJBCCMINAPAKJAAJBCCGABICEDIAIKJBB 9079 DATACAGNMEKNBIMAINBHMABIGJBJINBJMAMNBAMAJAAGKNBAMAINBJMACAGHMIKJIACAGNMEKN 9080 DATABHMAMNBJMAPAAFOOBHMANAOLKNBJMAMNBAMALAAFKJBCCAGNMEKNBJMACILAADKNBIMAIN 9081 DATABHMACAGHMIGACAFNMFCAFNMFCAFNMFGAKJKAKAEAINAOMAIMAPMAKOBHMAMKPAAGCAFNMI 9082 DATAEMHEMICALAMIGACAGHMIKJBDCANCPPKCBEKJBBCANCPPMKNAPKCAFNMFCAFNMFKJIACAGN 9083 DATAMEKEAFKJCAMAJPPAAGCANCPPMINAPGCANJMIGAKJBDCANCPPKJBBKCAGCANCPPMKNAPKDI 9084 DATAKNBHMAONBIMAPABAIFAEKJBNKCBECANCPPMKNAPKMGAENAPEGAKJBCCMKJJCCANCPPCAGH 9085 DATAMIKJBNCANCPPOOAOMANAADOOAPMAKJIACAGNMEKNAOMANAADMOAPMAMOAOMAKJJCCANCPP 9086 DATAGA